data <- read.csv("HW2 .csv")
head(data)
## score age biosex classrnk
## 1 327.52 18 1 1
## 2 308.28 19 1 2
## 3 308.71 19 1 2
## 4 301.56 19 0 2
## 5 315.53 20 0 2
## 6 298.79 18 0 3